home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Amiga Plus 1995 #5 & #6
/
Amiga Plus CD - 1995 - No. 5 and 6.iso
/
pd
/
daten
/
twistdemo
/
organiser
/
dialnumberphome.rexx
< prev
next >
Wrap
OS/2 REXX Batch file
|
1995-02-22
|
2KB
|
69 lines
/* This arexx script calculates a total field from all related track records */
GETDBFORMFIELD
ADDRESS twist
PARSE ARG dbfilename,rela_x,rela_y,shiftkeys
OPEN dbfilename
options results
GETDBFORMMODE
if results != "EDIT" then EXIT
tottime = 0
GETDBFORMFIELD "tracks.duration"
timestr = result
if timestr ~= "" then tottime = tottime + substr(timestr, 1, 2)*60 + substr(timestr,4,2)
GETDBFORMFIELD "tracks_2.duration"
timestr = result
if timestr ~= "" then tottime = tottime + substr(timestr, 1, 2)*60 + substr(timestr,4,2)
GETDBFORMFIELD "tracks_3.duration"
timestr = result
if timestr ~= "" then tottime = tottime + substr(timestr, 1, 2)*60 + substr(timestr,4,2)
GETDBFORMFIELD "tracks_4.duration"
timestr = result
if timestr ~= "" then tottime = tottime + substr(timestr, 1, 2)*60 + substr(timestr,4,2)
GETDBFORMFIELD "tracks_5.duration"
timestr = result
if timestr ~= "" then tottime = tottime + substr(timestr, 1, 2)*60 + substr(timestr,4,2)
GETDBFORMFIELD "tracks_6.duration"
timestr = result
if timestr ~= "" then tottime = tottime + substr(timestr, 1, 2)*60 + substr(timestr,4,2)
GETDBFORMFIELD "tracks_7.duration"
timestr = result
if timestr ~= "" then tottime = tottime + substr(timestr, 1, 2)*60 + substr(timestr,4,2)
GETDBFORMFIELD "tracks_8.duration"
timestr = result
if timestr ~= "" then tottime = tottime + substr(timestr, 1, 2)*60 + substr(timestr,4,2)
GETDBFORMFIELD "tracks_9.duration"
timestr = result
if timestr ~= "" then tottime = tottime + substr(timestr, 1, 2)*60 + substr(timestr,4,2)
GETDBFORMFIELD "tracks_10.duration"
timestr = result
if timestr ~= "" then tottime = tottime + substr(timestr, 1, 2)*60 + substr(timestr,4,2)
GETDBFORMFIELD "tracks_11.duration"
timestr = result
if timestr ~= "" then tottime = tottime + substr(timestr, 1, 2)*60 + substr(timestr,4,2)
GETDBFORMFIELD "tracks_12.duration"
timestr = result
if timestr ~= "" then tottime = tottime + substr(timestr, 1, 2)*60 + substr(timestr,4,2)
minutes = tottime%60;
secs = tottime // 60
if minutes >= 10 then timestr = minutes
else timestr = "0" || minutes
if secs >= 10 then timestr = timestr || ":" || secs
else timestr = timestr || ":0" || secs
SETDBFORMFIELD "total_time" timestr